a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
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F 
F 
F 
F 
F 
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F 
F 
F 
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F 
F 
F 
F 
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F 
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F 
F 
F 
F 
F 
F 


LOL LL LL LL LL LL LL LO LO LP LO LL LL LL 


o 
o 


**F ILE**]D**FOROPN 


FFFFFFFFFF © 00000 = RRRRRRRR 000000 + =PPPPPPPP NN NN 

FFFFFFFFFF | QO0000  RRRRRRRR 000000 =~ PPPPPPPP =e NN NN 

FF 00 00 RR RR 00 00 PP PP NN NN 

FF 00 00 RR RR 00 00 PP PP NN N | 
FF 00 00 RR RR 00 00 PP PP NNNN NN 

FF 00 00 RR RR 00 00 PP PP NNNN NN 

FFFFFFFF © 00 00 RRRRRRRR 00 00 PPPPPPPP NN NN NN 

FFFFFFFF © 00 OO RRRRRRRR 00 00 PPPPPPPP NN NN NN 

FF 00 00 RR RR 00 00 PP NN NNNN 

FF 00 00 RR RR 00 00 PP NN NNNN | 
FF 00 00 RR RR 00 00 PP NN NN deve | 
FF 00 RR RR 00 00 PP NN NN wens | 
FF 000000 ~=—s RR RR 000000 ~=—~PP NN NN ps | 
FF 000000 ~=—s RR RR 000000 ~=—~wPP NN NN in | 
RRRRRRRR =EEEEEEEEEE aaaaad 

RRRRRRRR_- EEEEEEEEEE —_Qaaaad 

RR RR EE aa QQ 
RR RR EE QQ QQ 
RR RR EE aa aa | 
RR RR EE aa 0a | 
RRRRRRRR = EEEEEEEE § =—_«Q0 QQ 

RRRRRRRR = EEEEEEEE 8=— Q 00 

RR RR EE Qa ad Ga 

RR RR EE aa aad a0 | 
RR RR EE Qo 0 a 

RR  RR_ €EE ao =. aa 

RR RR EEEEEEEEEE 0000 a0 

RR RR EEEEEEEEEE aaa a0 


Oe Oe Oe Oe Be Oe Se Be Oe Be Be Be Se SH SET Se Se Se SH Ge FH Se SH Se SHS OH Oe OSs OH Se Ge Se Se Oe Se Se Se Se Se Se Se Se Se Se Se See Se Fe Se Se ee Be ae 


-——_--—_----- — 
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1+ 
i This file, FOROPN.REQ, defines the VAX-11 FORTRAN OPEN 
i CLOSE and INQUIRE keywords and literal values. Edit: §B8L1023 


' 
PORE RA RETA RA ERE TEA AERA RERAAA AERA E RARE RARER eee AAA TAee eee reese 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
t* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'* ALL RIGHTS RESERVED. 


* 
* 
® 
® 
:* THIS SOFTWARE iS FURNISHED ance A_LICENSE AND MAY BE USED AND i ta * 
‘* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH * 
!® INCLUSION OF THE ABOVE gid hod NOTICE. THIS SOFTWARE OR ANY OTHER * 
‘e hh THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
:* OTHER PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
4 ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
t* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
tt CORPORATION. * 

® 

® 

® 

we 

® 

* 


'* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


VeRO Re eRe E HERRERA AEA AAAAAAAEREAAAEAAAAAAAAARAAARAETeAAeee eee eee eee 


! 

1 

! 0-21 = Move parameter encoding symbols for FORSSIOBEG to FPAR. TNH 30-May-78 
' on5¢ _ And symbol for ptatenent types. TNH WR = a 

! 0-235 = Change name to FOROPN.REQ JBS 14-NOV-78 

' 1-001 - og ny version number and add saaeet ht notice JBS 16-NOV-78 

' 1-002 - Add $ Ji mbolics to define the gppette LUN numbers for Basic 

! PRINTS INPUT, READ. DGP 05-Dec-7 

! 1-003 - Add necessary symbolics for ISAM. SBL 06-Dec-78 

! 1-004 = Change file name from FOROPN.REQ to OTSOPN. REQ. JBS 06-DEC-78 

! 1-005 = Remove the statement type constants. Moved to LUB. DGP 06-Dec-78 
! 1-006 = Change back to FOROPN. Move more constants to LUB. DGP 08-Dec- 

i 1-007 = Fix some comments to refiect she ¢ghange back to FOROPN. JBS 12-DEC-78 
' 1-008 - Add DISP="SUBMIT®. SBL 09-Fe 

! 1-009 = Change ORG_IND to ORG_IDX. haa, nee arg rsiBe SBL 03-Apr-79 

! 1-010 - Add new definitions for ISAM Br 

! 1-011 - e BLANK= Literal values. Apr? 

! iz6 - Add. OPENSK_DIS_SUDE and ENS aM PR - sa. 19-Apr-79 

! 1-013 - Add OPENSK”IOSTAT Agr= -79 

i 1-014 = Add INQUIRE keywords. SBL 2 27- ov? 

! 1-015 = Because OPEN and CLOSE use ine OSTAT keywords, make the 

: symbols that control the ge of their keyword arrays 

: cover them. JBS 01-MAY-197 

! 1-016 = Reassign INQUIRE keywords. SBL 01-Ma rt 979 

! 1-017 = Add INQUIRE keyword Auge o98 for ORGANIZATION, RECORDTYPE 

: and KEYED. SBL 2-Aug-1 

! 1-018 = Add OPENSK_ARG BR. SL 7-August-1979 

i 1-019 = Remove PRINT statement, for new BLISS compiler. JBS 02-OCT-1979 
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. - “ee, ik 
24, 


! 

i 
i 
i 
i 
i 
= 
is 

i* 

' Define 
' Letters of the Lite 


LITERAL 


OPENSK K_ERR 
OPENSK “EXTENDS| = 11, 
OPENSK~FORM = 
OPENSK_FOR_FOR = 1, 
OPENSK-FORTUNF = 2 i 
OPENSK-FORTUNS = -1, 
' 
OPENSK_INITIALS = 10, i 
OPENSK-IOSTAT = 22 i 
OPENSK-IOSTAT_L = 25, : 


-022 - had OPENSK _DEFAUL' 
=088 


literal values of form: 


OPENSK_ACCESS = 4 
OPENSK_ACC_DIR = 1, i 
OPENSK-ACC~SEQ = é- i 
OPENSK"ACC-APP = 3, i 
OPENSK~ACC "KEY = 4. i 

OPENSK_ASSOCIAT = 17, i 

OPENSK-ASSOC_L = 0, ; 

i 
i 

OPENSK_BLANK = 24, i 
OPENSK_BLK_ZER = 1, i 
OPENSK “BLK yfiut “F » i 

OPENSK_BLOCKSIZ = ! 

OPENSK~BUFFERCO = 18. i 

OPENSK~CARRIAGE = 7, i 
OPENSK_CAR_FOR = 1, i 
OPENSK~CAR“LIS = ¢- i 
OPENSK~CAR-NON = 3, i 

OPENSK_DEFAULTF = 26, ! 

OPENSK~DISPOSE = i 
OPENSK_DIS.SAV = 1, i 
OPENSK~DIS-DEL = ¢- i 
OPENSK-DIS-PRI = 3, i 
OPENSK-DIS~SUB = 4 i 
OPENSK-DIS-PRDE = §, i 

OPENSK- “DIS-SUDE = 6, : 
' 


AGECONTROL for INQUIRE. 


1 peels ions 1p the OP = arg 


ey 8 gth s 


ra 
Define symbols in alphabetical order. 


oul 
nd INagk: DEFAULTF. JAW 3 
- Add STREAM, STREAM_CR and STREAM_LF values for al Yoasttes. SBL 1-Mar-1983 
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et 4-Dec-1979 

st are sone tee SB 

q° be an une ionre byte, SBL *{2—mar-1980 
Jun-1 


Define —— for FORTRAN OPEN OPENSK. ob of form: OPENSK_symbol 
$K_abc_xyz where abc 7s 
' first three letters of keyword and xyz aré the first three 


Oo 


IATEDVARIABLE 

associated variable is a longword 

just a word. Note: this parameter 

ot generated by the compiler! 

needed after all keywords are converted to 


CE 
*D 
of 
‘A 
"K 
$s0 
if 
if 
n 
is 
“bit values. 


oo 


EFAULTFILE 
SPOSE 


L 
IT/DE 
HTENDS1ZE 

ORM 


° nnunnnnoocnun 
Cal 
a oe 
o 
m 
- 
m 
“4 
m 
= 


e: this is not generated by compiler. 
y- 


OSTAT is_a longword, 
word. this is not generated 
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OPENSK_KEY = 23, 


! 

' 

OPENSK -MAXREC ="16, i 
OPENSK"NAME = 14, i 
OPENSK-NOSPANBL = 12. i 
OPENSK-USEROPEN = é ; i 
PENSK~ORGANIZA = 19 i 
OPENSK_ORG_SEQ = 1, i 
OPENSK-ORG-REL = ¢° i 
OPENSK-ORG-IDX = 3, i 

OPENSK “ORG-HAS = 4; i 
OPENSK"ORG STR = S, i 
OPENSK_READONLY = ! 
OPENSK-RECORDTY = 26 i 
OPENSK_REC_FIX = 1, i 
OPENSK-REC_VAR = 2 i 
OPENSK-REC-SEGM = $, i 
OPENSK-REC_STM = 4, i 
OPENSKREC“STMCR "4 Eo 
OPENSK-RECSTMLF = 6, 
OPENSK_RECORDSI = 6, i 
OPENSK~ SHARED = 13, i 
OPENSK_TYPE = 15, ! 
OPENSK_TYP_OLD = 1, i 
OPENSK-TYP"NEW = ¢- i 
OPENSK-TYP“SCR = 3, i 

OPENSK™ TYP. UNK = 4, 


OPENSK_UNIT = 


OPENSK_KEY_MAX 
CLOSS$K_KEY_MAX 


OPENSK_DEFAULTF, 
OPENSK_DEFAULTF ; 


INQUIRE keyword definitions 


LITERAL 


= OPENSK_JOSTAT, 
ul = OPENSK_ 1OSTAT ae 


ESEEEEEES 55355 
REEREEE RELKK 


Pa 
ee 


po 
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by the compiler. 
MAXREC 

NAM 

eee EL OCS 


U 
ORGANI ZATION 
; SEQUENTIAL! 


*SCRATCH’ 
pean nel 


cunuwn 
2 


' Max. o open parameter 
! Max. CLOSE parameter 


Key numbers 27-29 are reserved for future OPEN/CLOSE use. 


aultfi 


T 
ie. sOSTat is a longword 


f ERAS present 
File exists? 
File opened? 
Open on what unit? 
Does it have a name? 
What's its name? 
Access mode? 
Is it sequential? 
Is it direct? 
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' What's the form? 


' 
INQSK-FORMATTED = 39, | Formatted? 
INQSK_UNFORMATT = 40, ! Unformatted? 
INQSK_RECL = 41, ! What's the recordsize? 
INQSK_NEXTREC =_42, ! What's the next record 
INQSK_BLANK = 43, ! What are blanks? 
INQSK_ORGANIZAT = 44, ! What's the organization? 
INQSK_RECORDTYP = 45, ! What's the recordtype? 
INQSK_KEYED = 46, ! KEYED allowed? 
INQSK_CARRIAGE = 47, ! What's the carriage control? 


INQSK_KEY_MAX = INQSK_CARRIAGE; 
'¢ 


i Define FORTRAN OPEN argument type codes. 
i Used in field OPENSB_ARG_TYPE 


LITERAL 


OPENSK_ARG_NULL = 0, ! keyword with no value 
OPENSK_ARG_LIT = 1, ! Literal value in W_INFO_WORD 
OPENSK_ARG_W_V = ¢ ! expression in W_INFO_WORD 
OPENSK_ARG_ WR = 3, ! next actual is adr. of word 
OPENSK_ARG_ LV = 4, ' next actual is longword value 
OPENSK_ARG LR = 5, ! next actual is adr. of Longyerd value 
OPENSK_ARG_TZ_R = 6, ! next actual is adr. of ASCIZ string 

! (needed for compatibili- descriptor 

! is the preferred form) 
OPENSK_ARG_T_DS = 7, ! mext actual is adr. of string descriptor 
OPENSK_ARG_ZT = 8, ' mext actual is proc. adr. 
OPENSK_ARG_INLN = 9, ! mext INFO_WORD longwords are arg. 
OPENSK_ARG_B_R = 10, ! next actual is address of byte 
OPENSK_ARG_MAX = OPENSK_ARG_B_R; ! max. arg type code 


‘+ 
: Define fields within FORTRAN OPEN parameters 


MACRO 


OPENSB_KEY = 0,0,8,0 %, ! aoreere code. Codes are of form: 

' OPENSK_keyname 
OPENSB_ARG_TYPE = 0,8,8,0 %, ' arg type code. Codes are 

' of form: OPENSK_ARG_type 
OPENSW_INFO = 0,16,16,1 2%, ! 16-bit information. 

! sign extend to 32-bits. : 
OPENSA_VALUE = 0,0,2BPADDR,0 2, ! Address of value - in next 

! position in parameter List 
OPENSG_VALUE = 0,0,2BPVAL,0 2; ! General value - in next 


1 position in parameter List 


'¢ 
Macros and literals for KEY= keyword and for ISAM 


. 
e 
. 
. 
. 
e 
. 
. 
a 
. 
a 
a 
. 
a 
. 
. 
. 
e 
. 
° 
. 
eo 
a 
. 
* 
. 
o 
. 
° 
. 
+. 
. 
© 
o 
* 
. 
e 
© 
o 
e 
. 
e 
. 
- 
. 
- 
7 
a 
e 
- 
a 
. 
a 
7 
. 
. 
. 
a 
- 
. 
a 
. 
os 
. 
e 
o 
e 
. 
. 
. 
2 
. 
a 
. 
- 
. 
. 
. 
2 
. 
o 
. 
a 
. 
. 
. 
a 
. 
o 
. 
o 
> 
. 
7 
o 
. 
o 
. 
. 
. 
. 
. 
a 
7 
. 
. 
. 
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LITERAL 

MACRO ENSK=XAB.SIZE = KABSC_KEYLEN + 4; 
OPENSB_DTYPE = 0,0,8,0% ' Key datatype in OPEN List 
OPENSL-KEY_LO = 4, 4 AX, i Low key position in OPEN List 
OPENSL_KEY_HI = 8 1% ! High key position in OPEN List 

ENSB_KTYPE = xaB$C_KEYLEN,0,8,0%, i Saved datatype 

OPENSB-S1Z0 = KABSC_REYLEN,6,6,0% i Saved key size 
OPENSW-POSO = XABSC"KEYLEN.16,16,0%; | | Saved Low position 


'¢ 
Max. length of ASCIZ string for FORTRAN OPEN file name array 


LITERAL 

OPENSK_STR_MAX = 100; ! Max. Length of an ASCIZ strin 

! (arg type TZ_R only). No Limi 

! for string descriptor strings 
‘¢ 
! Constants used in parameter encoding between the 1/0 statement routines 
! and routine FORS$I0_BEG. The codes are 
! both bit positions Tn the flag word and an index into 
! a table used for sorting out the parameters. 
: ALL are optional for some 1/0 statement. 


LITERAL 


K_UNIT = 0, ! user supplied unit number 

K_CHAR_COUNT = 1, ! size of user supplied record for EN/DECODE 
K_REC_RO = ¢: ' user supplied record number 

K_FMT_ADR = 3, ! user supplied format address 
K_USR_BUF_ADR = 4, ' user supplied buffer for EN/DECODE 
K-OBJ_TIME_FMT = 7; ! bit says object time format 


End of file FOROPN.REQ 


AL EQUIPMENT CORPORATION | 


Q178 8481138 SE D : 
0] c DENTIAL .AND PROPRIETARY 


VAX/VMS V4.0. 


Hi 


